unit Class_User;


interface
uses
  Classes,SysUtils,DB;

type
  TUSER=class(TObject)
  private
    FUNITLINK : string;
    FUSERINDX : Integer;
    FUSERCODE : string;
    FUSERNAME : string;
    FUSERPSWD : string;
    FUSERMEMO : string;
  protected
  public
    destructor  Destroy; override;
    constructor Create;
  published
    property UNITLINK : string read FUNITLINK  write FUNITLINK;
    property USERINDX : Integer read FUSERINDX  write FUSERINDX;
    property USERCODE : string read FUSERCODE  write FUSERCODE;
    property USERNAME : string read FUSERNAME  write FUSERNAME;
    property USERPSWD : string read FUSERPSWD  write FUSERPSWD;
    property USERMEMO : string read FUSERMEMO  write FUSERMEMO;
  public
  end;

implementation



constructor TUSER.Create;
begin

end;

destructor TUSER.Destroy;
begin

  inherited;
end;







end.

